===========================================================================
 BBS: The Abacus * HST/DS * Potterville MI
Date: 03-22-93 (11:01)             Number: 181
From: QUINN TYLER JACKSON          Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: FAQ2.0 Bug fix                 Conf: (35) Quick Basi
---------------------------------------------------------------------------
FAQ2.0's FINPUT.BAS had a bug that caused the DELETE key to crash it
over time.  It should be changed to read:

SELECT CASE LEN(char$)
CASE 1
     SELECT CASE ASC(char$)
          CASE 8    ' Delete key
               IF Ptr > 1 THEN
                    Ptr = Ptr - 1
               END IF
               ' The following line should be changed!
    Buffer$ = LEFT$(Buffer$, Ptr - 1) + MID$(Buffer$, Ptr + 1) + " "
                                                              ^^^^^^^
                                                              ADD THIS!


That little + " " needs to be added to the above line and it works just
fine.  I've included enough of the surrounding code for you to be able
to find where the patch belongs.

Cheers,

Quinn

 * OLX 2.1 TD * Real programmers never say they're sorry....

--- Maximus/2 2.01wb
 * Origin: The Nibble's Roost, Richmond BC Canada 604-244-8009 (1:153/918)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/2 159/100 125 430 950 203/23 209/209 280/1
SEEN-BY: 390/1 396/1 15 397/2 2230/100 3603/20